home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / TEXT FILE READER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  667b  |  18 lines
  1. 5 D$ =  CHR$(13) + CHR$(4)
  2. 10  HOME : VTAB 4: HTAB 12: PRINT "TEXT FILE READER": PRINT 
  3. 15  PRINT : PRINT "<1> CATALOG": PRINT "<2> READ A TEXT FILE": PRINT "<3> QUIT": PRINT : PRINT "WHICH?";
  4. 20  GET G$: IF G$ <"1"  OR G$ >"3"  THEN 20
  5. 25  ON  VAL(G$) GOTO 30,40,90
  6. 30  PRINT : PRINT D$"CATALOG"
  7. 35  GOTO 15
  8. 40  HTAB 1: CALL  -868: INPUT "ENTER FILE NAME:";F$
  9. 45  PRINT : PRINT "DO YOU WANT A PRINTOUT?";: GET P$: PRINT P$
  10. 50  IF P$ = "Y"  THEN  PRINT "<CTRL-D>PR#1"
  11. 55  PRINT D$"MONI"
  12. 60  PRINT D$"OPEN"F$;D$"READ"F$
  13. 65  ONERR  GOTO 75
  14. 70  GET C$: PRINT C$;: GOTO 70
  15. 75  PRINT D$"CLOSE"F$
  16. 80  PRINT "<CTRL-D>PR#0"
  17. 85  GOTO 15
  18. 90  PRINT : REM  IMPROVED BY CHRIS LOTT